home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / gnu / emacs_src_18_58.lha / emacs-18.58 / lisp / emacsbug.el < prev    next >
Lisp/Scheme  |  1992-02-21  |  2KB  |  39 lines
  1. ;; Command to report Emacs bugs to appropriate mailing list.
  2. ;; Not fully installed because it can work only on Internet hosts.
  3. ;; Copyright (C) 1985 Free Software Foundation, Inc.
  4. ;; Principal author K. Shane Hartman
  5.  
  6. ;; This file is part of GNU Emacs.
  7.  
  8. ;; GNU Emacs is free software; you can redistribute it and/or modify
  9. ;; it under the terms of the GNU General Public License as published by
  10. ;; the Free Software Foundation; either version 1, or (at your option)
  11. ;; any later version.
  12.  
  13. ;; GNU Emacs is distributed in the hope that it will be useful,
  14. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. ;; GNU General Public License for more details.
  17.  
  18. ;; You should have received a copy of the GNU General Public License
  19. ;; along with GNU Emacs; see the file COPYING.  If not, write to
  20. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  21.  
  22.  
  23. ;; >> This should be an address which is accessible to your machine,
  24. ;; >> otherwise you can't use this file.  It will only work on the
  25. ;; >> internet with this address.
  26.  
  27. (defvar bug-gnu-emacs "bug-gnu-emacs@prep.ai.mit.edu"
  28.   "Address of site maintaining mailing list for Gnu emacs bugs.")
  29.  
  30. (defun report-emacs-bug (topic)
  31.   "Report a bug in Gnu emacs.
  32. Prompts for bug subject.  Leaves you in a mail buffer."
  33.   (interactive "sBug Subject: ")
  34.   (mail nil bug-gnu-emacs topic)
  35.   (goto-char (point-max))
  36.   (insert "\nIn " (emacs-version) "\n\n")
  37.   (message (substitute-command-keys "Type \\[mail-send] to send bug report.")))
  38.  
  39.